home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
T-TPUG Old Monthly Disks
/
(c)tl.d64
/
example1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2008-11-26
|
178b
|
11 lines
10 G:CLEAR; FULL; BORDER 14
20 *LOOP
30 C:L=L+1
40 G:DRAW L; TURN 92
50 J(L<220):*LOOP
60 G:GOTO 0,0; TURNTO 0
70 C:R=RND(1)*16
80 G:PEN R; BORDER 15-R
90 C:L=0
100 J:*LOOP